﻿<Serializable()> _
Public Class Propriedade
    Inherits BaseDominio

    Private _text As String
    Public Overridable Property Text() As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
        End Set
    End Property

    Private _itemUI As ItemUI
    Public Overridable Property ItemUI() As ItemUI
        Get
            Return _itemUI
        End Get
        Set(ByVal value As ItemUI)
            _itemUI = value
        End Set
    End Property


#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Propriedade
        Return MyBase.PropriedadeDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.PropriedadeDao.Salvar(Me)
    End Sub

#End Region

End Class

